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OOOOOCOOOoOOCOoOoOooooooooeo 
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0 1 TITLE i ety = CALCULATES ANSI TAPE VERSION 
0 ¢ IDENT 4-000' 
° ¢ FERRARA AAA AERA AEA AEA EAA AEAAAAAERAAAAAAEEAA ERATE AAAREAEEAEAAEREES 
3* © 
000 § 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
000 3* DIGITAL St AM CORPORATION, - MAYNARD. MASSACHUSETTS. * 
4s : +r ALL RIGHTS RESERVED. * 
° » 
0000 10 ;* THIS SOFTWARE IS VAN SHED UNDER A LICENSE AND MAY BE USED AND copice # 
0000 11 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
44 \ 3* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
00 13 ;* COPIES THEREOF MAY NOT BE VIDED OR OTHERWISE MADE AVAILABLE TO ANY .* 
0000 14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
8806 1? i* TRANSFERRED. * 
4 ® 
0000 i$ 3* THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 3 :* CORPORATION. s 
b ® 
0000 1 3;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
+ ; § :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 
: ® 
4 4 $e c cea NnNnnnhRUNNNENENEAaneNENNERNnORRROReRNeRiReNianneEeNNeenEeensEOtes 
$$ ++ 
006 28: 
4 $3 3 FACILITY: MAGNETIC TAPE ACP 
0 0 31 : ABSTRACT: 
000 ss : This routine calculate * the generation and generation version fields 
$¢ 5 of the ANSI MAGNETIC TAPE from the FILES-11 version number. 
000 36° 
000 7 3 

000 8 ; ENVIRONMENT: 

000 9; STARLET epergt ine system, including privileged SYSTEM SERVICES and 
000 40 ; internal EXEC routines. 

000 41; 

000 4s 

000 45 ; , ; 

8 4 ; AUTHOR: Deborah H. Gillespie, CREATION DATE: 26-Jul-1977 

0 0 46 : Modified By: 
0000 48: v02-003 REFORMAT Frederick E. Deen, Jr 29-Jul-1980 

. 0 rH $ This code was reformatted to adhere to RMS standards 

0 § 51: v02-002 tg ste Maria del C. Nas 10-Jun-1980 
000 26 : If file version number is zero, ad to 1. 

000 53; 

0 3 5 : 

0 5 e 

83 0 6 

000 57 
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V0G- ° MTAACP, SRCICALCTV.MAR: 1 
08 58 ; INCLUDE FILES: 
0 60 ° 
0 61 : rd 
0 64 : MACROS: 
63 : 
00 64 
§ 0 8 : EQUATED SYMBOLS 
$00 85 : ‘ 
000 68 : INPUT PARAMETERS 
00000004 9000 70 ; VERSION = 4 : bi i b 
00000008 0000 72 GENADDR = 8 ; i addr’ of quad word to receive 
0000 73 3 generation and gen. number 
0000 7% 
0000 75; 
0000 76 : OWN STORAGE: 
0000 (77: 
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3 ? 
1 3+¢+ 3 
: g : CALC_TAPE_VER = This routine calculates the Srneres ten and generation version “ 
000 : 3 fields in the ANSI MAGNETIC TAPE from the FILES-11 version : 
; number. ; 
000 ; ; 
000 $ ; CALLING SEQUENCE: 3 
4 Hs $ CALC_TAPE_VER(ARG1,ARG2) : 
$008 90 ; INPUT PARAMETERS: F 
4 91 ; ARG1 = binary version number 3 
44464 38 3 ARG2 = address of quad word to receive generation and generation number : 
0000 94 ; IMPLICIT INPUTS: 3 
0000 95 ; None 3 
0000 96 ; 
i444 97 ; OUTPUT PARAMETERS: 
0000 98 ; ARG2 - address to receive 
0000 99 ; ytes generation number 
0000 100; 4 bytes generation version number 
0000 101; 
0000 se 3; IMPLICIT OUTPUTS: 
0000 1 : None 
0000 104; 
0000 105 ; ROUTINE VALUE: 
0000 106; None 
0000 107; 
0000 108 ; SIDE EFFECTS: 
0000 109; Generation number = (version -1) /100 
0000 110; Generation version number = MOD (version -1)/100 
0000 111; 
0000 ie 3e° 
0000. =11 
00000000 114 -PSECT S$CODE$S,NOWRT-LONG 
0000 115 
0000 116 CALC_TAPE_VER:: 
0004 a4 ie -Q@ORD “M<R2> 3 save register R2 
52 O08 AC 00 0902 119 MOVL GENADDR(AP) ,R2 3 get address of answer 
62 7C 0006 £120 CLRQ 3; clear answer 
03 04 AC F4 0008 121 SOBGEQ VERSION(AP),1$ : if version greater than 0, ok 
04 AC 6 Q000C 1 ¢ INCL VERSION(AP) ; otherwise, set t : 
50 04 AC C by 125 1$: MOVZWL VERSION(AP) ,RO 3 P ckup 16 bits of version 
1 04 13 124 CLRL Ri ; EDIV takes quad word | 
50 00000064 8F 7B 0015 125 EDIV #100,R0,(R2),4(R2) ; calc quotient and remainder 
62 06 4 126 INCL (R2) 3; increment quotient 
04 0021 #42127 RET 3 return 
0022 128 
0022 129 - END 
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= CALCULATES ANSI TAPE VERSION 
Symbol table 


The working set Limit was 900 pages. 

2621 bytes (6 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 9 non-local and 1 local symbols. 
312 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

7 pages of virtual memory were used to define 6 macros. 


Macro Library name Macros defined 
"$255$DUA28: SYS.OBJJLIB Ae 1 0 
“$255$DUA28: (SYSLIBISTARLET. MLB;2 0 

TOTALS (all Libraries) 0 

0 GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 
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SHR EXE RD NOWRT NOVEC LONG 


AQB_TYPE = 
CALC_TAPE_VER 3 RG 01 
FCB_TYPE = 
miesvebe > $9988088 
= 
RVT_TYPE = 090003 
VCB_TYPE = 0 
VERSION = 00000004 
WCB_TYPE = 00000001 
ene ser ee wera non -+ 
! ;_Psect synopsis 3 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 <( 0.) 09 ( 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SCODES 00000022 ( 34.) 1¢ #1.) NOPIC USR CON REL’ LCL NO 
perm newman toc ese meee 
: \ Per tormance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization ? 00:00:00.04 90:00:08 .07 
pouness processing 124 00:00:00.68 00:00:07.08 
00:00:00.67 00:00:03.50 
eae table sort bs Fas SD 00:00:00.01 
Pass 2 39 00:00:00.50 00:00:03.15 
Symbol table output 2 00:00:00.01 00:00:00.01 
Psect synopsis output 1 00:00:00.02 00:00:00.02 
Cross-reference output 0 obs Bs 00:00:00.00 
Assembler run totals 282 00:00:01.9 00:00:15.86 
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